home *** CD-ROM | disk | FTP | other *** search
/ Mobiclic 71 / MOBICLIC 71.ISO / mac / DATA / COMMUN / temp0001 / 00276_Script_TRAVELING_ALLER < prev    next >
Text File  |  2004-12-05  |  2KB  |  51 lines
  1. global gpiste_Fond, gdemiW_Fond, gL_Home, gdeltaTravelingMax, gNb_Traveltracks,gSens ,gdemiH_Fond
  2. property p_Incr
  3. ---------------------------
  4. on getPropertyDescriptionList me
  5.   return [\
  6. #p_Incr:[#comment: "incrΘment aller (en pixels):",#format: #integer, #default: 3]\
  7.  ]
  8. end getPropertyDescriptionList
  9. ---------------------
  10. on exitFrame me
  11.   case(gSens) of
  12.     1:
  13.       if sprite(gpiste_Fond).locH > 640 - gdemiW_Fond then
  14.         repeat with i =gpiste_Fond to gpiste_Fond + gNb_Traveltracks
  15.           sprite(i).locH = sprite(i).locH - p_Incr
  16.         end repeat
  17.         go the frame
  18.       else
  19.         sprite(gpiste_Fond).locH = 640 - gdemiW_Fond
  20.         repeat with i = 1 to gNb_Traveltracks
  21.           sprite(gpiste_Fond + i).locH = gL_Home[i][1]- gdeltaTravelingMax
  22.         end repeat
  23.         updateStage
  24.       end if
  25.     2:
  26.       if sprite(gpiste_Fond).locV < gdemiH_Fond then
  27.         repeat with i =gpiste_Fond to gpiste_Fond + gNb_Traveltracks
  28.           sprite(i).locV = sprite(i).locV + p_Incr
  29.         end repeat
  30.         go the frame
  31.       else
  32.         sprite(gpiste_Fond).locV = gdemiH_Fond
  33.         repeat with i = 1 to gNb_Traveltracks
  34.           sprite(gpiste_Fond + i).locV = gL_Home[i][2]+ gdeltaTravelingMax
  35.         end repeat
  36.         updateStage
  37.       end if
  38.   end case
  39. end
  40. ---------------------------
  41. on mouseUp
  42.   case(gSens) of
  43.     1:
  44.       sprite(gpiste_Fond).locH = 640 - gdemiW_Fond
  45.     2:
  46.       sprite(gpiste_Fond).locV = gdemiH_Fond
  47.   end case
  48. end
  49. --------------------------
  50.  
  51.